define i:integer;
define j:integer;
define tmp:byte;
define M:byte[5];

begin
 for i=1 to 5 do
  begin
   PrintS("M[i]")
   M[i]=con
   PrintS(""L)
  end
 i=1
 While i<=5 do
  begin
   j=i+1
   While j<=5 do
    begin
     if M[j]<M[i] then
      begin
       tmp=M[i]
       M[i]=M[j]
       M[j]=tmp
      end
     j=j+1
    end
   i=i+1
  end
 for i=1 to 5 do
  begin
   PrintS("M[i]")
   PrintI(M[i])
   PrintS(""L)
  end
end.
